perm filename LIVERM.F4[ESS,JMC] blob sn#251090 filedate 1976-12-07 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		x=1
C00003 ENDMK
CāŠ—;
	x=1
	dx=-0.1
	p=1.1
10	if(x**x-p)20,20,30
20	p = x**x
	x = x+dx
	go to 10
30	if(abs(dx)-10E-6)40,40,50
50	dx = -0.1*dx
	p = x**x
	x = x+dx
	go to 10
40	type *,x,p
	STOP
	END